Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/shared.dir/07579_Digital Video(new).ls

Text File | 1996-04-18 | 9.5 KB | 477 lines

on DVInit
  global gSISystem, gSIVideo
  set vRetVal to 0
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      set vRetVal to MAC_QT_Init()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        set vRetVal to WIN_QT_Init()
      else
        if gSIVideo = "VFW" then
          set vRetVal to WIN_VFW_Init()
        else
          if gSIVideo = "MPEG" then
            set vRetVal to WIN_MPEG_Init()
          end if
        end if
      end if
    end if
  end if
  return vRetVal
end

on DVDone
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Done()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Done()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Done()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Done()
          end if
        end if
      end if
    end if
  end if
end

on DVUse aFName, aPal
  global gSISystem, gSIVideo
  if voidp(aPal) then
    set aPal to EMPTY
  end if
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Use(aFName)
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Use(aFName, aPal)
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Use(aFName, aPal)
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Use(aFName)
          end if
        end if
      end if
    end if
  end if
end

on DVPlay aFrom, aTo
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Play(aFrom, aTo)
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Play(aFrom, aTo)
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Play(aFrom, aTo)
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Play(aFrom, aTo)
          end if
        end if
      end if
    end if
  end if
end

on DVPause
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Pause()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Pause()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Pause()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Pause()
          end if
        end if
      end if
    end if
  end if
end

on DVPauseP
  global gSISystem, gSIVideo
  set vRetVal to 0
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      set vRetVal to MAC_QT_PauseP()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        set vRetVal to WIN_QT_PauseP()
      else
        if gSIVideo = "VFW" then
          set vRetVal to WIN_VFW_PauseP()
        else
          if gSIVideo = "MPEG" then
            set vRetVal to WIN_MPEG_PauseP()
          end if
        end if
      end if
    end if
  end if
  return vRetVal
end

on DVStop
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Stop()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Stop()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Stop()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Stop()
          end if
        end if
      end if
    end if
  end if
end

on DVStopP
  global gSISystem, gSIVideo
  set vRetVal to 0
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      set vRetVal to MAC_QT_StopP()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        set vRetVal to WIN_QT_StopP()
      else
        if gSIVideo = "VFW" then
          set vRetVal to WIN_VFW_StopP()
        else
          if gSIVideo = "MPEG" then
            set vRetVal to WIN_MPEG_StopP()
          end if
        end if
      end if
    end if
  end if
  return vRetVal
end

on DVResume
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Resume()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Resume()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Resume()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Resume()
          end if
        end if
      end if
    end if
  end if
end

on DVSetPos aPos
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_SetPos(aPos)
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_SetPos(aPos)
      else
        if gSIVideo = "VFW" then
          WIN_VFW_SetPos(aPos)
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_SetPos(aPos)
          end if
        end if
      end if
    end if
  end if
end

on DVGetPos
  global gSISystem, gSIVideo
  set vRetVal to 0
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      set vRetVal to MAC_QT_GetPos()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        set vRetVal to WIN_QT_GetPos()
      else
        if gSIVideo = "VFW" then
          set vRetVal to WIN_VFW_GetPos()
        else
          if gSIVideo = "MPEG" then
            set vRetVal to WIN_MPEG_GetPos()
          end if
        end if
      end if
    end if
  end if
  return vRetVal
end

on DVPlayP
  global gSISystem, gSIVideo
  set vRetVal to 0
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      set vRetVal to MAC_QT_PlayP()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        set vRetVal to WIN_QT_PlayP()
      else
        if gSIVideo = "VFW" then
          set vRetVal to WIN_VFW_PlayP()
        else
          if gSIVideo = "MPEG" then
            set vRetVal to WIN_MPEG_PlayP()
          end if
        end if
      end if
    end if
  end if
  return vRetVal
end

on DVSetPlayArea aX, aY, aW, aH
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_SetPlayArea(aX, aY, aW, aH)
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_SetPlayArea(aX, aY, aW, aH)
      else
        if gSIVideo = "VFW" then
          WIN_VFW_SetPlayArea(aX, aY, aW, aH)
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_SetPlayArea(aX, aY, aW, aH)
          end if
        end if
      end if
    end if
  end if
end

on DVFullScreen aFlag
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_FullScreen(aFlag)
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_FullScreen(aFlag)
      else
        if gSIVideo = "VFW" then
          WIN_VFW_FullScreen(aFlag)
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_FullScreen(aFlag)
          end if
        end if
      end if
    end if
  end if
end

on DVFullScreenP
  global gSISystem, gSIVideo
  set vRetVal to 0
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      set vRetVal to MAC_QT_FullScreenP()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        set vRetVal to WIN_QT_FullScreenP()
      else
        if gSIVideo = "VFW" then
          set vRetVal to WIN_VFW_FullScreenP()
        else
          if gSIVideo = "MPEG" then
            set vRetVal to WIN_MPEG_FullScreenP()
          end if
        end if
      end if
    end if
  end if
  return vRetVal
end

on DVFrameRate
  global gSISystem, gSIVideo
  set vRetVal to 0
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      set vRetVal to MAC_QT_FrameRate()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        set vRetVal to WIN_QT_FrameRate()
      else
        if gSIVideo = "VFW" then
          set vRetVal to WIN_VFW_FrameRate()
        else
          if gSIVideo = "MPEG" then
            set vRetVal to WIN_MPEG_FrameRate()
          end if
        end if
      end if
    end if
  end if
  return vRetVal
end

on DVClose
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Close()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Close()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Close()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Close()
          end if
        end if
      end if
    end if
  end if
end

on DVIdle
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Idle()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Idle()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Idle()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Idle()
          end if
        end if
      end if
    end if
  end if
end

on DVShow
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Show()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Show()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Show()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Show()
          end if
        end if
      end if
    end if
  end if
end

on DVHide
  global gSISystem, gSIVideo
  if gSISystem = "MAC" then
    if gSIVideo = "QT" then
      MAC_QT_Hide()
    end if
  else
    if gSISystem = "WIN" then
      if gSIVideo = "QT" then
        WIN_QT_Hide()
      else
        if gSIVideo = "VFW" then
          WIN_VFW_Hide()
        else
          if gSIVideo = "MPEG" then
            WIN_MPEG_Hide()
          end if
        end if
      end if
    end if
  end if
end